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How to Load 

These programs require 32K RAM memory, an ATARI 810 Disk 
Drive, and the ATARI BASIC Language Cartridge. First, 
Insert the ATARI BASIC Language Cartridge In the (Left 
Cartridge) slot of your computer. To load and run the disk, 
turn on your disk drive. When the busy light goes off, 
insert the disk. Power up your computer and turn on your 
video screen. When the MENU appears, select the utility you 
want. Later, after you are familiar with the Utilities, take 
the ones you need and copy them to your own disks. 

MENU 
HOlfK TO USE MENU: 

The MENU program was designed to provide a screen 
display of disk files and run BASIC programs. MENU will 
work with either ATARI DOS 1 or DOS 2. OS and RUN BASIC 
programs that are In SAVED or tokenized format. 

MENU will automatically LOAD and RUN when your Tricky 
Tutorial diskette has been used to "BOOT UP" your ATARI 
computer. Any time you want to have MENU run first on your 
disks, just use the COPY function from the DOS menu to put 
Menu and AUTORUN.SYS from this disk onto yours. 



Booting up means that when a disk has MENU on It, and an 
AUTORUN.SYS that calls Menu, Menu is run by just turning on 
your ATARI 810 disk drive (and other peripheral equipment, 
if any: printer, interface, TV, etc). Insert the diskette 
into Drive #1 and shut the door. Make sure your ATARI BASIC 
cartridge is installed, then just turn on the computer. 



ATARI'S DOS 2. OS will load It's File Management 
Software, then look for an AUTORUN.SYS file. Since your 
diskette does contain an AUTORUN.SYS file, DOS will LOAD and 
execute the Instructions In this short program. This 
particular AUTORUN.SYS te I i s the computer to say "HELLO", 
then RUN a program called INTRO. INTRO displays our cover 
message and runs the MENU program. A sequence of programs 
that RUN other programs is called CHAINING. More on that 
I ater . 



MENU begins by reading what is called the Disk 
Directory File. This file contains a list of every file on 
a diskette. As MENU reads this Information, It will count 
the number of files read, and display the current count on 
the screen. Once all files have been read, the screen will 
also display the number of FREE or available sectors left on 
the disk. 



At this point there will 
some internal calculating, 
completed. The authors name w 
"PRESS START". When the 
will appear as follows: 



be a brief delay as MENU does 
Once this step has been 
II be replaced by the words, 
START key is pressed, the screen 




SELECT OPTION 
PRESS START 

RUN BASIC PROGRAM 
DISPLAY DIRECTORY 




Note that the words, "PRESS START" and "RUN BASIC 
PROGRAM" are in WHITE. Throughout this program, the 
currently selected option will always appear In WHITE. This 
will indicate what the computer will do if you 



PRESS START, 



The OPTION and SELECT keys are I n t e r c h a n g a b I e . They 
are used to SELECT the OPTION you desire. Press one of 
these keys now then release it. Note that there were two 
sounds. One was heard as you pressed the key and the other 
as you released it. The program acted upon your request as 
you released the key. Note that the words, "RUN BASIC 
PROGRAM" are no longer white but "DISPLAY DIRECTORY" has 
changed to white. Now press OPTION or SELECT again. Once 
you released that key, the screen returned to It's original 
CO I ors . 
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Now that you understand what Menu Is, let's see how easy 
It makes choosing programs on your disks. Press SELECT (or 
OPTION) so that DISPLAY DIRECTORY Is white, then press the 
START key. 

You have told MENU to display all files on the 
diskette. The screen Is set up to display 9 files. If more 
than 9 flies are on the disk, they will be displayed, up to 
9 at a time, each time you PRESS START. Once all files have 
been displayed, you will be returned to your original two 
choices. Again, RUN BASIC PROGRAM will appear In white. 

PRESS START and a new screen wl I I appear. Note that 
there are now options numbered 1 thru 9. Only numbers 4 
thru 9 are BASIC programs. Number 1 Is CONTINUE. This 
would be selected to do just that, continue. In other 
words, you would be saying, "I don't want to return to BASIC 
(#2), or call DOS (#3), or run any of the programs numbered 
4 thru 9. 

If you just wanted to use BASIC for working on a 
program, you would select number 2. If you wanted to use 
DOS, you would select number 3. If you wanted to RUN one of 
the programs numbered 4 thru 9, you would select It's 
number . 

You may select a number by pressing the OPTION or 
SELECT key until the desired option appears In white. Note 
that here, you do not have to release the button for the 
option to change. Try it. Just hold down the OPTION key. 
One by one, each option will turn white. When you're done 
fooling around, leave the screen so that CONTINUE is white. 
Now press the START key. 



If there are additional programs to display, a new 
batch of options will appear. In each case, the first three 
will remain the same, and up to 6 new options (BASIC 
programs) will appear. When the last program has been 
displayed, and the CONTINUE option is selected, MENU will 
redisplay the first 6 BASIC programs. 

I said there were two methods of selection. The other 
Is pressing the number key of the desired option. There Is 
no need to press RETURN or START when a number key is used. 
As soon as a valid key Is pressed, MENU will respond 
accord i ng I y . 
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Remember that when you displayed the DISK DIRECTORY, 
you saw flies such as DUP.SYS and AUTORUN.SYS? But when you 
used the RUN BASIC PROGRAM option, these files were not 
displayed. That Is because this MENU program assumes that 
If a filename has any extentlon, (such as .SYS), It Is not a 
BASIC program. Conversely, when no extentlon Is found, MENU 
assumes the file to be a BASIC program In SAVEd format. 

You may use MENU on all your standard ATARI diskettes 
for convenient directory displays and BASIC program 
selection. You will just have to remember to use filename 
extentlons In all NONBASIC program names. You will also 
find that If you use an extentlon, that filename will NOT 
appear in your BASIC program selection, even though It might 
be a BASIC program. In other words, DO NOT use extentlons 
such as .BAS to Indicate a BASIC program. We will discuss 
standards for filenames and extensions a bit later on. 




F0RMAT1 - A Disk Formating Aid 



HOW TO USE F0RMAT1 : 



Why have a BASIC program to format disks when DOS does 
the same thIng?Well, a Professor's life Is very busy with 
all these TRICKY TUTORIALS to write. When I get a chance to 
nap, I DO IT! 




So anyway, while I was laying around, er, I mean 
working, one day, I realized that when DOS is used to format 
diskettes, the user must type 6 keys before the formatting 
begins. With FORMATl, all you have to do is Insert the disk 
and press the START button. 



BIG DEAL! To format one disk, using F0RMAT1 saves 5 
keystrokes. If you just bought a box of 10, you save 50 
keystrokes. If you format disks in even larger quantities, 
and have two drives, you could remove the PRESS START 
prompt, make minor modifications to allow you to flip floppy 
between the two drives, with no keys to press at all! 




DISKLIST 



HOW TO USE DISKLIST 



The DISKLIST program reads the disk directory f I le from 
any ATARI diskette and generates a disk jacket label on any 
compatable 40 or 80 column printer. This label wi I I contain 
a heading, the names of each file on the diskette, and the 
number of free blocks or sectors. 

You may use plain white paper, then cut out the listing 
and attach It to the protective outer jacket using rubber 
cement or scotch tape. This will help you to identify your 
diskettes at a glance. It is recommended that these labels 
be used only for diskettes which are nearly full. Naturally, 
if the contents of your diskette changes, the label would 
have to be reprinted. 



When you RUN this program, 
insert the appropriate diskette, 
you are using. 



you will be prompted to 
then enter the drive number 



You may enter a heading for your label. You may enter up 
to 40 characters of descriptive information, or just press 
RETURN to bypass this option. 

Once this has been done, the program will read your 
diskette and print your label. You will then have the option 
to return to the MENU program by pressing the OPTION button, 
or rerunning DISKLIST by pressing the START button. 

Here's a example of output from DISKLIST: 



TRICKY TUTORIAL #7 BY JERRY WHITE 

FILE EXT SEC FILE EXT SEC 

* DOS SVS 039 * DUP SYS 042 

* AUTORUN BYS 002 * MENU 043 

* FILES 039 * INTRO 005 

* FORMAT 1 014 * AUTOBOOT 019 

* INSPECT 042 * DISKLIST 020 




The program itself is short and stright forward. It 
simply opens the disk directory to read all files using wild 
cards. For example, if you specified disk drive number 2, 
the directory file would be opened as follows: 

OPEN #1 ,6,0,"D2:*.»" 

The data between quotes is stored in the string F$. As 
each record is read, it is checked to see if it's length is 
less than 5, or if positions 5 thru 8 contain the letters, 
"FREE". If the diskette is in DOS 2 format, the last record 
will contain the word "FREE". If the diskette is in DOS 1 
format, the last record will contain only the number of free 
sectors. The length of that number will be less than 5, and 
DISKLIST will know we have reached the end of the directory 
file. 

lOCB (Input Output Control Block) #2 is used for your 
printer. Directory data is read into the string A$, and 
printed using a ? or PRINT #2 command. 

The resulting printed material will usually fit quite 
nicely on the disk jacket unless you have a large number of 
files on your diskette. 
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AUTOBOOT 
HOW TO CREATE AN AUTORUN.SYS FILE 



When an ATARI computer 1 
System (O.S.) performs many I 
these tasks Is to find out If 
so. It looks for Instructions 
whatever diskette It finds on 



s turned on, the Operating 
n i 1 1 a I I zat I on tasks. One of 
a disk drive Is available. If 
by reading the first sector on 
drive one . 



Using your Tutorial diskette as an example, the first 3 
sectors (boot sectors) are read. Then the file called 
DOS. SYS Is read and the O.S. sets up ATARI'S F.M.S. or File 
Management System. Once this has been done, DOS looks to 
see If a file named. AUTORUN.SYS Is on the diskette. If 
not, control of the computer Is turned over to a cartridge. 
In this case, ATARI BASIC. 



n'K'iiUi.'i 



MriarHaMJrTiTri.-r.in 



DOS VERSION 2 



i' lt ^. ^i ' i 



llPDftTEI> 3/25/82 



BOOT INTERFACE CY or NJ ?N 



ENTER COMMANDS; 



?RUN"D:MENU" 
OPENING Dl:aUT0RUN.5YS 
CREATING Dl:AUTORUN.SYS 
CLOSING D1:AUT0RUN.SYS 

READY 



If the diskette contains an AUTORUN.SYS file, the system 
will execute the Instructions It receives as a result of 
reading this file (these Instructions may be as simple as 
RUN"D :MYPROG" , or more detailed If you need). Assembler 
Instructions may be executed Immediately as each Instruction 
Is read. BASIC Instructions will be executed after the 



ent I re 
Manual 
I n format I on . 



AUTORUN.SYS file has been read. See your DOS 2 
or De Re ATARI If you desire further technical 
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The AUTORUN.SYS file is a handy little tool which may be 
used to automatically perform user specified instructions 
such as RUN a program. The AUTORUN.SYS file on this 
EDUCATIONAL SOFTWARE dlsi^ette tells your computer to set the 
foreground color so that it equals the b a c l< g r o u n d color 
immediately. Why? This was done to prevent the READY 
prompt from appearing in the upper right corner of the 
screen. Why? It Is my humble opinion that the READY prompt 
should tell the user that the system Is READY to use. In 
this case, it would not be true. 

On this disk, the AUTORUN Instruction Is RU N "D : I NTRO " . 
Our obedient computer will look for and hopefully find a 
program named INTRO, then LOAD and RUN it. The INTRO 
program simply displays Introductory information, tei Is you 
that the MENU program Is being LOADed, and RUNs It for us. 
This could be descrlbd as CHAINING programs. DOS calls 
AUTORUN.SYS, AUTORUN.SYS calls INTRO, and INTRO calls MENU. 
For your programs, you may want to create an AUTORUN.SYS on 
disks holding your favorite games or business programs. 
AUTORUN.SYS will automatically run them. What to do If you 
have several games on a disk? — use MENU and AUTORUN.SYS. 

The AUTOBOOT program may be used to create your own 
AUTORUN.SYS file on any DOS version 2 diskette. DO NOT RUN 
AUTOBOOT until you have made a backup copy of your 
EDUCATIONAL SOFTWARE diskette. The AUTORUN.SYS file on this 
disk Is locked to prevent accidentally writing over it. 

As an example of using the AUTOBOOT program, let us 
assume you have decided to use my handy little MENU prograni 
and would like to have MENU RUN automatically, bypassing the 
INTRO program. O.K. You would begin by using DOS to FORMAT 
a blank diskette. Once formatted, use DOS option H to write 
DOS files. Be sure to use DOS 2. OS. When In doubt, simply 
BOOT or reboot your computer using our diskette (which has 
DOS 2. OS on it), then load DOS from the MENU program, (see 
MENU instructions). Now use DOS option to DUPLICATE the 
MENU program. 

If all went well, you should now have three files on the 
new diskette. Check this by using DOS option A to display 
the Disk Directory. Type a capital A, then press RETURN 
twice. The first time you press RETURN Is to enter the A 
option. The second time is to bypass all options of the 
Disk Directory feature. This tells DOS to simply display 
all files found in the Disk Directory file onto the screen. 
There should be three; DOS. SYS, DUP.SYS, and MENU. The 
number to the right of the filenames are the number of disk 
sectors occupied by that file. The last line tells you the 
number of FREE or unused sectors. 
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Now to create our AUTORUN.SYS file. Before we can RUN 
the AUTOBOOT program, we must exit from DOS. To do this, 
type B and press RETURN. Since the BASIC Cartridge Is In 
place, you will now see the familiar READY prompt. Put your 
TRICKY TUTORIAL diskette back Into drive one, type 
RUN"D:AUT0BOOT", and press RETURN. 



Before you go any further, remove the TUTORIAL diskette 
and Insert the one on which we will write our new 
AUTORUN.SYS file. The first prompt will ask you If you wish 
to BOOT INTERFACE (Y or N). If you will be needing the 
serial ports of ATARI'S 850 Interface Module, respond Y. If 
you don't need them, or If you don't have one, respond N. 
There Is no need to press RETURN, 



At this point we can enter whatever BASIC commands we 
want to have executed by AUTORUN.SYS. You can only type In 
one line of BASIC commands, so use colons and keep the total 
length to 3 lines on the screen (133 characters, as In your 
BASIC Manual, see last page). The AUTOBOOT program will 
automatically generate code to set the background and 
foreground colors equal (eliminating the READY prompt). By 
the way, the prompt will be on the screen, you just won't 
see It. I mention this to point out that if you were going 
to use a PRINT command, you wl I I want the text to show up on 
the screen. For this reason you should begin your AUTORUN 
Instructions with a GRAPHICS command to set the colors back 
tonormal. To keep this example simple, just type 
RUN"D:MENU" and press RETURN. 

As the AUTOBOOT program RUNs, It will tell you what It 
Is doing. It will OPEN, WRITE, then CLOSE a file named 
AUTORUN.SYS. Upon completion, AUTOBOOT will simply END. 
All you need to do to see your AUTORUN.SYS file do it's 
thing Is shut off the computer, then turn it back on again. 
The computer will do the BASIC statement you gave it. 

Some people say that frequently turning electronic 
devices off and on is not good to do, since it wears out 
components. To avoid this and still test your AUTORUN.SYS 
file, just type POKE 580,1 and press RETURN, then press 
SYSTEM RESET. This will cause a cold start, similar to 
turning off and then on again. 

You may enter a series of unnumbered BASIC commands into 
the AUTOBOOT program. They must be separated by a colon and 
not exceed three I ines on the screen. You might wish to 
display a message, reset margins, or simply create a disk 
that will automatically call DOS. 
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If no BASIC Cartridge is found, DOS will load and 
display it's own MENU of options, ignoring the AUTORUN.SYS 
file. To automatically use DOS options w i t hi t ii e BASIC 
Cartridge installed, use AUTOBOOT and simply enter the 
command DOS. 



The AUTOBOOT program provides a method of automating 



tasks that 
automat i on 



might otherwise have to be done manual ly 
wonderf u I ? 



Isn't 



INSPECT 



HOW TO USE INSPECT 



RUN the INSPECT program 
the program by it's full 
provides four options. I^hen 
is no need to press the 



The options display identifies 
name, "DISK INSPECTOR", and 
entering an option number, there 
RETURN key. 




1 - EXyWINE DIRECTORY 



Let's begin by typing the number 1 to examine t li e 
directory file of tills d i s l< e 1 1 e . T hi e screen shouid now 



display: 



s 


FN 


FiLE 


EXT 


SSEC 


NSEC 







DOS 


SYS 


4 


39 




1 


DUP 


SYS 


43 


42 




2 


AUTORUN 


SYS 


85 


2 




3 


MENU 




87 


43 




4 


Fl LES 




130 


39 




5 


INTRO 




169 


5 




6 


FORMATl 




174 


14 




7 


AUTOBOOT 




188 


21 




8 


INSPECT 




209 


42 




9 


Dl SKL 1ST 




251 


20 




10 


RPMTEST 




271 


14 



The first column provides the Status of each file. In 
this case, each file shows the status L. The L indicates 
that the file Is lock;ed. If the file were unlocked and 
available, the status would be blank. If a file was 
Deleted, the status would be indicated as the letter D. 

The second column shows the File Number. The first file 
number is zero. The maximum number of f i les that may be 
stored on a given diskette is 64. If the directory were 
completely full, the last file number would be 63. 

Following the file number is the filename and extention 
If any. Note that the "." between filename and extention Is 
NOT displayed. 

Finally we have two columns of decimal numbers. The 
first is "SSEC" (the starting sector) and the second is 
"NSEC" (number of sectors). Note that our first file, 
DOS. SYS, begins at sector 4 and occupies 39 sectors. The 
first 3 sectors on the disk are reserved as BOOT sectors. 

At the bottom of the screen is the message, "PRESS ANY 
KEY FOR OPTIONS". Do this and you will return to our 
original four options. 
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2 - EXAMINE SECTOR 

This time type the number 2 to EXAMINE SECTOR. The 
program will then ask us to "TYPE SECTOR NUMBER RETURN?". 
Let's examine the first sector of the AUTORUN.SYS file. 
Type the number 85 then press RETURN. The program will then 
ask us to TYPE 1 FOR CHARACTER OR 2 FOR HEXDUMP. Type the 
number 2 (NO DEPOSIT, NO RETURN). 

Each sector consists of 128 bytes. Note that the first 
two bytes of the AUTORUN.SYS file are FF (decimal 255). 
This Indicates that the file Is In machine language or what 
Is also known as Object Code. Once again, press any key, to 
return to our options display. 

Now let's examine sector 87 which is the beginning of 
our MENU program. Note that the first 3 bytes are 00. 

This Indicates a BASIC program In SAVEd format. 

Return to the options display and have another look at 
sector 87, but this time specify 1 for character format. 
Note that the first three bytes are hearts. The heart 
character Is ATASCII character 0. 



3 - EXAMINE FILE 

Get back to the options display and type the number 3 to 
examine a file. The program will then ask us to ENTER 
FILENAME? Type MENU then RETURN. Once again we see the 
beginning of the MENU program but In a somewhat different 
screen layout. Here we begin with byte 1 instead of 0, just 
to say that this Is the first byte of the MENU program. For 
each byte, the Decimal and Hex Values are displayed along 
with the ATASCII character representation. 

At the bottom of the screen you will see, 
"OPTION=OPTI ONS START=CONTI NUE" . To continue looking into 
the MENU program, (20 bytes at a time), press the START 
button. When you are ready to return to our options 
display, press the OPTION button. 



4 - RETURN TO MENU 

The fourth and final option is used to return to our 
main MENU program. 
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RPHTEST 

If you suspect that you are experiencing problems caused 
by your 810, this little program might come In handy. It 
will allow you to check the speed of your disk drives. 

Before we go any further, I'd like to thank the author 
of this program. Bob Christiansen of Quality Software, for 
his permission to Include his program In this package. 
RPMTEST was originally published in the May 1982 Issue of 
COMPUTE! magazine. Although my version Is slightly 
different, the logic, and the machine language routine 
remain the same. We cannot reprint the COMPUTE 
documentation, nor do we wish to steal It by making minor 
mod i f i cat ions. 




RUN this program now. If your drive Is running at the 
proper speed, your diskette should spin between 285 and 290 
times per minute. The absolute perfect speed is said to be 
288. 

The question that the program asks you is: "Which drive 
number do you want to test"? Before you answer, make sure a 
formatted diskette Is ready In the appropriate drive. Note 
that this program will test by reading sector number one of 
the diskette, 100 times. You can use any program disk 
without fear of losing data or damage to the disk. Enter the 
appropriate drive number from 1 thru 4, then press RETURN. 
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It will take about 22 seconds for the test. The speed 
will then be displayed. If the speed Is within normal 
limits, the background color of the screen will change to 
green, and a message will say, "DRIVE SPEED IS O.K.". If 
your drive speed Is too fast or too slow, a message will be 
displayed to that effect, and the background color of the 
screen will be red . 

At this point, you may test again by pressing the START 
key, or return to the MENU program by pressing the OPTION 
key. If you decide to return to the MENU program, make sure 
our tutorial program diskette Is ready in drive one before 
you press the OPTION key. 

When testing the speed of any drive. It Is Important 
that the diskette you use Is spinning freely. If you hear 
any unusual sounds, the diskette might be rubbing against 
It's Jacket, causing the RPM speed to be slow, you may want 
to test the drive speed using several different disks. 

It Is also important to note that the speed of the 810 
has been known to be about 3 RPM faster when it is cool, 
than after It warms up. Since most of the time the drive 
will be warm. It should be tested under those conditions. 



I f after running 
drive to be consistan 
adjusted. You can do 
COMPUTE article, or h 
for you . Note that 
will be vo I d I ng your 
not describing the de 
you who would do som 
dr i ves . The speed Is 
sma I I whee I on a "Pot 
so that If you turn t 
found th I s out I ate o 
days to get a replace 



th i s test a f 
t I y fast or s I 
this yoursel 
a ve an author I 
if you decide 
warranty. Th 
tails here to 
ething wrong, 
adjusted Insid 
", but many dr 
hem too hard t 
ne night In ou 
ment part ! 



ew times, yo 
ow, the spee 
f as descri 
zed repair c 

to do It y o 
e choice is 
protect the 

thereby bre 
e the drive b 
I ves have th I 
hey break. My 
r labratory. 



u find your 
d should be 
bed In the 
enter do it 
urself, you 
yours. I am 
hundreds of 
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y turning a 
s pot sea I ed 
pals and I 
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If you find that the speed varies by more than 2 or 3 
RPM from test to test, you have a problem that should 
deflnately be brought to the attention of an authorized 
service center . 




DBAI.ER 
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ATARI DISKFILES TUTORIAL 

Many new computer owners are anxious to learn how to 
write useful programs for themselves. After reading the 
literature packed with the machine, the new owner is often 
overwhelmed by the many technical aspects of using a 
computer. Since you can not learn any programming language 
overnight, a seemingly endless period of trial and error 
usually follows. A new owner Is often seen burning the 
midnight oil and arguing with a defenseless TV or monitor. 

If he or she perseveres long enough, useful programs can 
be written. The new programmer is now ready for bigger and 
better things. 

Assuming that a disk drive is available and our 
"hacker" has had some experience with DOS and the loading 
and saving of programs, he or she Is ready to write some 
kind of database program. Now don't be scared off by a big 
word like "DATABASE". It Just means you are going to save 
some useful information on a disk for later use. Our 
examples will be simple, but the methods will work just as 
well for more complex data. 

The data file may consist of a simple list of record 
albums for a start. When you have gained experience, you 
might want to try a Personal Finance System. If you are at 
the point in your programming career to want to keep 
records, or think you might be In the near future, read on. 

Start with something very simple. Don't try to write 
that Financial Package yet. There is a lot to learn first 
about file structure and I/O. I/O stands for Input/Output. 
Input is data being read by a program. Output Is data being 
produced by a program. A file consists of one or more 
records, and a record Is an Item'within a file. Records may 
be broken down further Into fields. We will be using simple 
records containing a single 10 character field as our 
record, and create a sample 10 record dataflle. 



WHAT THE HECK IS A DISK FILE? 

A FILE is a collection of related data. Files fall Into 
two major categories; Program files, and Data files. 

Each major section within a file Is called a RECORD. In 
a data file, each record may be divided into a number of 
FIELDS. 
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For example, let's assume you had a data file of names 
and telephone numbers. The name could be one field called 
NAMES, and the telephone number could be a field called 
PHONES. Using lOCB #1, these two fields could be written as 
a record as follows: 

PRINT #1 ;NAMES, PHONES 

NAMESStPHONEi=l record. A file consists of one or more 
records, and a record consists of one or more fields. 



The DISKFILE tutorial program demonstrates many of the 
common functions required in a simple database type program. 
By using the program and studying the program code, you will 
learn how datafiles may be handled in ATARI BASIC. 



It Is Important to understand the terminology used here. 
CREATE means just that. In this case it means create from 
scratch. Note that the create routine actual ly begins at 
line 1000 and that line 1010 contains an OPEN command. The 
number 8 In that command means write only. If a file Is 
opened using this variable, and a file with the exact same 
name Is found on your diskette, the old file will be deleted 



automat i ca I I y , 



Using option two, a file Is read from disk and displayed 
on the screen. This does not In any way alter the disk 
file. 



Option three Is used to ADD data to an existing disk 
file only. The term APPEND Is often used In this case. In 
plain English, the term APPEND means, "add to the end of 
this file." 

Option four Is used to UPDATE the records of an existing 
file. This means you will alter, fix, or change a record. 
This procedure Is a bit more comp I Icated than the others 
since we will not know which record the user may choose to 
update In advance. The technique used In this demo program 
is known as Random Access Updating. An Index consisting of 
SECTOR and BYTE locations is created and stored in an array. 
This gives us the exact spot where each record begins. 
Since we are using fixed length records of 20 characters 
each, we can read a specific record Into a string, change It 
in the string, then rewrite the string onto the disk. This 
becomes a real time saver when many records must be updated 
i n a I arge disk file. 



option five Is used to READ and display a specific file 
called the DIRECTORY FILE. This DOS generated file contains 
the table of contents of your diskette. This file Is also 
known as the VTOC or Volume Table Of Contents. For display 
only, this routine does the same thing as DOS option A. 



Although some error trapping has been bul It In, many 
possible error conditions are not corrected or fully 
explained by this program. Error trapping and human 
engineering account for a great deal of planning and program 
code. This Is not a cop out on my part. The point here Is 
to provide an example of diskflle handling. Accounting for 
all possible errors could easily double the size of the 
program, making It more difficult to understand. 



That's about It for now. I suggest you use my program 
as Is, then experiment by maklngmlnor changesand notelngthe 
results. When you're ready to write your own diskflle 
handling program, feel free to use t 



ite your own 
these rout I nes . 




While the rest of this package was designed to provide 
you with utility programs and related Informat 
program Is not a utility. It was des 
to manipulate data files on disk. 



gned to 



ion, the F 
show you 



LES 
how 



You may be Interested In using this Information to 
create your own data file handling program. The following 
documentation will explain the various BASIC routines used 

may alter and use them in your own 



In F I LES, so that you 
database programs. 



I wrote FILES using meaningful variable and str 
names. Look at program lines 100 and 110 
the disk drive number in a format such as 
hold the filename you specify such as 
DRIVEFILES will hold the combination of 
such as "Dl :TEST.DAT". 



ng 

DRIVES wl II hold 
"Dl :". FILES will 
"TEST. DAT", and 
DRIVES and FILES 



For purposes of this tutorial, we will use very short 

data records containing 10 characters and use RECORDS to 

store the current record. ANSWERS will be used to store a 
response from you, the user. 



The arrays SECTOR and BYTE will be used to store the 
location of each data record on the diskette. DIRECTORYS 
will store the records we read from the disk directory file. 

We setup our menu screen display starting at line 120 
and ending at line 210. At the end of line 210, we go to a 
subroutine which starts at line 7000. This subroutine will 
be used whenever we need a single character response from 
the user. Before the INPUT statement, we make sure anything 
previously stored In ANSWERS Is eliminated and POKE 764,255 
to ignore any previously pressed key. In this case, we are 
waiting for the user to enter the desired option number. 

When we return at line 220, we set a trap to line 800 
which Is an error message routine. Then We store the number 
120 In the variable LINE, and the number 6 In the variable 
HIGHNUMBER. The last thing we do In line 220 is put the^ 
numeric value of ANSWERS into the variable NUMBER. 

If the user entered a letter Instead of a number, BASIC 
will give us an error condition because we cannot take the 
value of a letter. The trap to line 8000 will be activated 
and the error message from that line will be displayed on 
the screen. At line 8010, we go to the alarm and time delay 
subroutine In lines 9000 and 9010, then go back to whatever 
line number Is stored In the variable LINE. In this case 
that line number Is 120. 

If the user did enter a number, I I ne 230 checks to make 
sure the number was not less than 1 or greater than 6, and 
line 240 sends us to the line where the selected option 



routine begins. 



Let's go through each of the six routines beginning with 
number one, which begins at line 1000. This routine creates 
a sample data file consisting of ten records. Notice that 
we reset the value of LINE to 6100. LINE will always hold 
the line number that may be used later by a GOTO LINE 
I nstr uct i on . 

Next we go to the subroutine beginning at line 7100. We 
will be using this subroutine often, so study It carefully. 
This routine gets the desired drive number from the user and 
makes sure It Is not less than 1 or greater than 4. Once a 
valid drive number has been entered, it creates DRIVES as we 
described earlier, and asks for a filename. This 
information Is combined and winds up in the string 
DRI VEF I LE$. 
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RETURNIng +o line 1000, we set a trap to line 9100 In 
case something goes wrong, clear the screen, and attempt to 
OPEN the file as specified In DRIVEFILES. We probably 
didn't have to CLOSE #1 before the OPEN, but It was done 
just In case that lOCB was left open. In any case. It never 
hurts . 

Notice the operand 8 used In the OPEN command. It Is 
most Important that you understand the function of this 
number. In this case It means we want to OPEN a file to 
WRITE only. If any other file on the diskette contains the 
same filename, ATARI'S file management system will delete 
the old file to make room for the new one. It Is therefore 
Important to remember that the operand 8 should only be used 
to create a NEW data file. 

Each of the other possibilities for this operand are 
demonstrated by this program. The number 4 Is used If a 
file Is to be OPENed to read only. 9 Is used to APPEND data 
to a file. APPEND means add to the end of an existing file. 
12 Is used to READ or WRITE and Is used for updating an 
existing file. 6 is used to OPEN the diskette's directory 
file and read It. By studying the FILES program, you will 
learn how each of these OPEN operands are used. 

The data In our records will consist of ten characters 
that do nothing but take up space, and show you that we 
created a ten character record. The program writes ten 
sample records by using a ? (PRINT) #1 command within a 
FOR/NEXT loop. We should now have a ten record file to work 
with, (big deal ) . 

At the end of this routine, we GOTO 6100. This routine 
closes all lOCBs, sets the print tab width to 5, and 
displays the message, "PRESS RETURN FOR OPTIONS". This was 
done to give the user time to read what was displayed on the 
screen before returning to our main options screen. 

There is very little difference between the routine we 
Just used (lines 1000-1100) and the routine beginning at 
line 2000. Option 2 allows us to read a file like the one 
we just created. The difference is in the OPEN variable 
being 4 Instead of 8, (read Instead of write), and the lack 
of the FOR/NEXT loop. Since we do not know In advance how 
many records to read, we just set a trap. When we get an 
end of file error from BASIC, we know we read the whole 
file. 

The routine beginning at line 3000 is somewhat more 
complex. Here we will add to our data file. We OPEN using 
the #9 to APPEND, get record data from the keyboard, add 
blanks if necessary to insure a record length of 10, and 
provide an option for the user to add as many records as 
des 1 red . 
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Opt i on #4 is by f 
beg ins at line 4000 . 
READ/WRITE, and updat 
file. First, we hav 
record on the diskett 
storing the sector an 
appropriately named a 
stores our current po 
record counter, then 
we input a record and 
the screen. Once we 
where each record can 
records without rerea 



ar the most 
Here we 
or change 
to know t 
We do th 
byte I ocat 
rrays. The 
s i 1 1 on on t 
store our po 
display all 
've read th 
be found, w 
di ng the f i I 



complex. T 
OPEN using 
records in an 
he exact I oca 
is by read i ng 
ion of each r 
NOTE comma n d 
he disk. We 
s i t i on in our 

available in 
e entire file 
e can change a 
e again and ag 



his routine 
the #12 to 
ex i st i ng data 
1 1 on of each 
the file and 
ecord in the 
in line 4030 
add 1 to our 
arrays. Then 
formation on 
and we know 
ny number of 
a I n . 



To update a record, we just ask the user for the record 



number to be updated, 
demonstrated in line 4300 
maintain our fixed record 
When we PRINT our updated 
be writing the new record 



and POINT to this record as 
The only restriction is that we 
length of 10 positions per record, 
record on the disk, we will simply 
where the old one used to be. 



This process is called random access updating. 

In your own programs, you can change the record length 
to as much as 256 positions, and just modify this 
demonstation program to store whatever information you 
desire. If you can stay within 80 characters per record, 
and you'd like a collection of programs written specifically 
to provide various types of data storage and retrieval 
functions along with sorting and printing capability, look 
into SWIFTWARE's (Swifty Software's) FILEIT 2 package. It 
can be used to print lists of most anything, address labels, 
and financial reports. I wrote it with the home user and 
small businessman in mind. 

We still have one more option to describe in addition to 
#6 which is used to automatically return us to the l«l E N U 
program. Option 5 reads the disk directory file, and 
displays it on the screen. This tells us the names 
program and data file on a given diskette along 
number of sectors it occupies, 
unused sectors we have left. 



and the number 



of each 
wi th the 
off FREE or 



This routine, which begins at line 5000, is very simple. 
The key Is In the OPEN command. The D:*.* specifies disk 
drive 1, all files. It could also be Dl:*.*, but drive one 
Is always assumed if the drive number is not specified. 
Those asterisks are called wild cards. *.* means all 
I etter /n umber combinations before and after the period or 
f i 1 ename . exte n t 1 on divider. The following are a few 
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possibiMties that cou 
what they would specify 
for further Information 
*. =AI I 
«.SYS =AII 
M*. =AI 
extent I ons . 
M*.* =AI I 



be used to rep 
See your DOS 2 



ace the *.*, and 
reference manual 



filenames with no extentions. 
filenames with the extentlon .SYS 
filenames that begin with M 



filenames that begin with the 



and have no 
etter M. 



The DISKLIST and MENU programs read this same file to 
provide their disk jacket label printing and automatic 
program loading features. 

Hopefully, the FILES program listing, this 

documentation, and the pages that describe how to use this 

program, combine to provide you with everything you will 
ever need to know about the handling of data files. As with 

any form of programming, a little effort and trial and error 

on your part will be required to put this Information into 
pract i ca I use . 




This concludes our tutorial on disk files. We hope you 
find the utility programs to be useful, and learned 
something about using your disk drive along the way. If you 
have any comments about this package, feel free to contact 
the author at the address listed below. 

Jerry White 

18 H I ckor y Lane 

Levlttown, N.Y. 11756 
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: ? ■■ PROGRAMS HAUE NO f " X L E E K T EH T X O N S . ■ ■ 

1 ISO '? :? •■ NO BASIC PROGRAMS HERE FOLIHI> OM":? :? ■■ THIS l> 

XSKETTE- . '" : ? : END 

J.X6 GRAPHICS IS: GO SUB ISO:? *t06:? I*Q 6 : ? 1*Q6;" I WAS UNAB 

LE":? woe.:'? ttos;" TO L. OAI> ■■ : ? «06:? WOe;" "jftOITS 

i.1-7 FOR JW=XOO TO 255:SOI.IHD 3,,JW,XO,OS:SOUND 0X,JW-02,X0,0 
S : H E K T ..I M : S O U N D O 3 , O 3 , O 3 , O 3 : S O U IM l> O X , tj 3 , O 3 , O 3 : T R A P 4. O O O : G O T 

O *oo 



FORMAT! 



O REM [inTSrSTTIlirH Cc? i3«2 BV ^PERRY WHITE 1 1> X S K FORMATTING UTIL.I 
TV AND TUTORXALJ 
J R E M 

9 REM PTic«ioi:mTi'aiiiiiJa"=«iic=i«r:Tif?iiK-iir;Trrrri^^ 
■•TiJiitiOTnararfiii 

XO GRAPI^IXCS 0:SErCOLOR 2,0.0:P0KE 82.2:POKE S3,39:POKE 2 0L,X 
O : P O K E ? S 2 , X : ? 

2 O ? ."FORMAT DISK ON D R . X ' " : ? : ? ■ ■ PRESS START WHEN R 

e; A D V . " ■ : G O T O SO 

4 F=F+L:? CHRStX2SJ !? :? :? :? .'■FORMATTING DISK O' ■ ; F 

Si O T H A P 2 O O : H X O 2 5 4, «.X . O . O , ■ ' D ,1 : " ■ : T R tl P -t O O O O : HEM tf J.li;ili:ajS*lIiG;illtS 

5s POKE 6 6 ,, X : ? cHRS c2 53 5 : POKE 66 , o : REM iiO::xiiiiiiiiiia«i:-i*ssiiirg!TeiM;;iris 

■■iiril'illl-ICilTD] 

6 ? ."DISK FORMATTED--:? :POKE 7'i'.0:REM I^J* *iIjaiK=1i'JIM H^lVrWlllKair^iiri 

7- O ? ■ ■ PRESS START TO FORMAT ANOTHER DISK--:? " - PRESS OPTION 

TO END THIS PROGRAM"" 

SO IF PEEKt5327'S'>=:6 THEN 4 0:REM INSTANT REPL. AV. 

^>0 IF PEEKt5327'3}=3 THEN 3 0:RE;M THAT-S AIL. FOLKS. 

X o o GOTO 8 o : R E M i "irnKc^insBCET: s "inem'ii -.rmmf-wimMmxinia 

X s o REM r-:iiiH:i-xiJBiOiiiiiiuLici»*i-iiiir-'^iiiti*i^ rrartniTCTiixri 

rjT«in«*«;-i:*i 

J- ^ " W Iz, »*1 r " I..!! Ik.' ilji fll..WBBI ?.rn. 4IMH ff_" J. rnffl.m<TC.,^ i,.l*7^HW..H n I.'tH^ ".1 -i iI .^ ■.f.,h!WlW..hfll ^h..flB^WL "-^ .*i iWB..hili'Jh^WI^^B.r*.-..H*il ['VjlXjM 

J 9 5 REM ii-iP.ri;Mi3-:ra:ariiiiTtri[>ia»:aTiii::T?*"iiipr!*iii~fn:i«^ 

200 ? CHRSC2S3J :? :? '"I WAS UNABI E TO FORMAT THAT l> X S K E T T E ■ • : 

? 

2 X O B A D = B A D * X : F = F - X : G O T O '7 O : H E M ti E T^lli m'*^Si- MlltllIK33=:Samililia:f IS 

3 O O ? C; H R $ C X 2 5 i : ? : ? F ! ■ ■ DISKS F tl R M A T T E D ' - : ? : ? ■ - LI H A B L E TO F O 
R M A T " : Ft A D : ■ • D X S K C S 3 - - 

3 X o HEM p-s'l-sBSGia.iiw-foar-TCii'if-EiiJi.if *j! ,! m •mtti r=4: jmsinrciiiica ■i:"** i !T=«i i laei :: wufXiUTi). 

3 2 O ? : ? ■ • END OF P R O G R A M F O R M A T X " • : ? : ? " " P R E S 

3 ANY KEY FOR MENU--:F. OKE 7&4,2 55 

3 30 IF P E E K t T- 6 4 3 = 2 5 5 AND p E F; K < 5 3 2 7 9 > i= 7" THEN 3 3 O 

340 POKE i'64.,255:RUN ■■D:MENU"- 



DISKLIST 



O REM plfjiaT^ * ■fell -t^Z^OZ CcJ 1982 bv Jerry Wh i t e 

JIO GRAPHICS OrPOKE 752, i: SET COLOR 2,5,0:I>IM A$tdOi,DM!St403, 

FStlOJ , BS C40) :B£C1>=" ■■:B!?ta03= B S t 2 3 = B S C i > 

i-2a ? ■•'i.i^-i. rsrrissrsasssssaisaa ssaair i" : ? ■■ iiMr>3wiiiiii-=ii 

J 2 2 FOR ME = I S TO O STEP — O . Z : S O U m> O , 5 X , i 2 , HE : M E K T ME 
J3:o ? ''"4- + 4-This pr^ogr-aw Will pr^irbC 3 disKetiie"" 
j.. 4. '? :? '"dl a. r'4? c 't ony 'that Maiji l>e att a c h»?<J 'to a" 

J. S O ? : ? ■ ■ d i S-. k .j a c tn e 't . X n s e i t v o u r <J i s k e 't 1: t? ,, ■ • : F" O R ME = JL, S TO 

STEP -O . 2 : SOUm> O , .L02 , i2 , ME : NEKT ME 

J.6 •? iPOKE 7S2 , B : -? "then type the .Jiniue nuiflber-'" : :TROP 1Z0:I 

WPUT BH ; THflP AOOOO 

ISO ? ■ ■ IS + + * .H V P E f> H FI A l> I M G I D E N 'I' X F I C A T I O N L I N E * -•• ' ■ : I H P LIH t>HS 

s; o e F S' = ■ " i> ■ ■ : F s c l e n t f s :> '»■ :i > = s t R S « r> m :i : f s t l e m <; t- Si *x!i =•• :*!■.■»■• : close 

».L : TRAP 6.00 : OPEN Kl . 6 , O , FS 
Z02 TRAP lOOO: CLOSE «2:OF>EM «2 , S , «) , "P : ■ ■ : T R AP *0000:? •■« + + + * 

i:!iTMjjwiiiic«iiiir.*M::MO*»ii« "ipoke '^-sz,!:? ■■ ■■ 

2 £+4 LI>M=;LENCI>Hi^3 :XF LC>N=:0 OR LI>H>33 THEN 2 OS 

20& TRAP 208 : ,JW--=IHT t CJtO-'LOMJ ^ZJ : PRINT «2 ; EtS C i , J W-H J ; l>M S : TR AP 

4 O O O O : C; ti T Ct 2 i 
i'rOa PHIMT «2 : ■■ ■■JDMS 

2JO PRIN'F «2 : ? »2:" F X L EJ E[ H T SEC F' X l_ E EHT SEC"":? 

«2 
2 'JO FRAP 2SO : C = C-frJL ; SETCOLOR -l , f; , 8 : X M P II T HI. , AS : IF LEN IA£> <5 O 
H! AS {S . S3 =""FREE" 'FHEM ^, 5 O 
S; S O -? t*2 ; ■ ■ ■ ' ; A S ; : C = C '» i : S E T C O L O B 4 , C , 8 : X M F> I J T Ul , A S : I F L E H C A S 

3 < S OB as t. 5 , e J = ■ ■ F F* E' E ■ " 'F H EM 2 5 O 
2 4.0 ? «2 ; " "jASjGOTO 220 

2:5 '? t'*2 : '> :t-i2 ; "= '" ; A ij; CI . ;?::» r" f'ree blocks *-**o ail, able .": f 

OH 1 = 1 "FO 6 : PRIWT Itta, : ME. KT X:CLOSy:L 'MZ 

2 6 o '? ■ • Ki 4 + i A ■ ■ : s E F c o L o R 2 . X ti , o : ? • ■ HMIT^JIHrO siH»:riTilB^"MgTffir?Bf "* 

W" 

28 -? :-? ■■ PRESS [ilSiSX'Tri FOR MEMU-- 

zsfo ■? : ? ■• pRt;ss PiimiSHIi TO rerum" 

3:00 IF PEEK e:S3:27-^J =6 THEN WUM 

SIO IF PEEKtS322-93=3: THEN '? ■"■S":'? :? ."LOADING MENU...": TRAP 
50e:RUH "l>:MEHU" 

a.': 2 o GO T o ;s o o 

soo -» "ri + 4ii «Iir<itiHC!niM>T:ilJi«rH>I:TiJlllirrr5««ra:l!^ ME = A TO 20 

O : NEKT ME 

J(10 "? : '? " PLEASE INSERT A l> I S K E T 1 E INTO":'? : '? " l> B T U E O 

ME HFLCCH CONTAINS THE":'? :'? " MENU PROGRAM." 

S2 ? " + ** PRESS eSipTffJ WIN EM REAn>Y" 

aaO IF PEEK CSS'i ?-19J =t> THEN 1 R A F> 500: RUN "OlMEMIJ" 

5 4 O G O T O S 3: O 

& o o TRAP 4 o o o o : '? " n, -1. 4- * + ii'iiM:i;roTr"* 'KiasTwiir^^TFii* iTivsi^^^ ■ = f o 

Fb ME = L TO S O O : N E K T ME : Ft « 1 N 

X.OOCI '? "renjn.4-4 VOUR PRXMTER 'F S N • T R E: A t> V " : '■> : '-• " PRFS 

S plfriTiSi HHEW REAOV . . ." 

1 O J O IP- P E E K C 5 3 2 7 9 J <> 6 THEN 1 O X O 
J O 2 O Fi O TO 20 2 



*5HJTClBOOT 

iOO REM rilTiiltil.ilfliFii eCRF-ATES A U'F O « LIN . S Y 5 F X L E :> (,<:,» X[*8'^ „) fc- r' c M M 

hi te 

L L O DEM A S t X 2 8 3 , F N S t I 4 3 : F N S = " D X : A 1 1 F O F* U N . S Y S • • : G O F O 2 8 O 

120 FOFt ME: = X to 88 : read I'F:PL1T «X, . 3: F : HE;KT me: ; Rtri LH^tN 

J.3 FOR ME = X TO ZO:REAO XF :PLri *4X-XT:NEKT ME:Rt^'FIIRH 

X4-0 FOR X=:X TO X23:READ D:IF X = fo4 THEN PUT H(X . L E N C A S 3 '- I : G O F O 
XbCt 



ISO PUT «;l , D 

J 6 O N tf K T I 

i/'O FOR I = l_EMHaSj TO i STEP -ilPLIT «i , OS C 1 11 !» CI . 13 ) : H EK T I 

-ISO PUT «i, 255: PUT » I , Z 5 5 : P U T t(.l,2 2&!PUr «.1. ,Z:PUT »J., 227": PUT 

Mi, 2: PUT »1 , O : PU T «.L , 6 
JL3e ? :? ■■ CLOSING "jFNSlCLOSE »i:POKE S2,2:POKE 83,39:? :P 

OKE 7'52,0:ENI> 

2 00 DATA 255, 2S5,0, 6, 5,6,169, US, i<tl, ±97,2,96, 255,255,226, 2, 
2 2 7' , 2 , t3 , 6 

2iO oar a 255, 255, 0,56,7 5, 5 6, JL69, so. J. 41,0,3. 169,1,1-11,1,3, 169 
,63, 1 't 1 , 2 , 3 , 1 6 9 , 6 ,1 , 1 <1 1 , 3 , 3 , 1 6 9 , 5 , 1 .8 1 , 6 

220 CftTft 3, 1*1, 5. 3, 169, 0,l.il.d, 3, 141, 9, 3, 141, 10, 3, 141, 11, 3,1 
ti-9 , 12 , 141 ,8,3, 32 , 89 , 228 , 16 , 1 , 96 , 162 

2 SO [>ATA 11,189,0,5,157,0,3,2 2,16,247,32,89,228,48,6,32,6,5 
,10 8,12,0,96,226,2,227,2,0,56 

2: 4 O l> O I A 1 6 Z , O , 1 8 9 , 2 6 , 3 , 2 O 1 , 6 9 , 2 4 tJ , S , 2 3 2 , 2 3 Z , 2 3 2 , 2; O 8 , 2 4 4 , 2 3 2 
, :1 4 2 , 1 O 5 , 6 , 1 8 9 , 2 6 . 3 , 1 3 3 , 2 O S , t 6 9 , 1 O 7 , 1 5 7 , 2 6 , 3 , 2 3 2 , 1 a 9 
2 SO DATA 26,3,133,206,169,6,157,26,3,160,0.162,16,177,205,15 
3,107,6,200,202,208,24 7,169,67,141,111,6,169,6,141 

2: 6 O ■> A T A 112,6,169,10.141,106,6,96,172,106,6,48,9,185,123,6, 
2;06,10 6,6,16 0,±,96,138,72,174,105,6,16S,20S,1S7 

2 7 O DATA 2 6 , 3 , 2 3 2 , 1 6 5 , 2 O 6 , 1 S 7 , 2 6 , 3 , 1 O 4 . 1 7 O , 1 6 9 , 1 S S , 1 6 O , 1 , 9 6 , 
0,0.e, 0,0,0,0,0, 0,0,0,0,0,0,76,0,0,0 

280 GRAPHICS 0:POKE 710,144: POKE 82.1:POKE 8 3,38:POKE 201,10 

290 ? , •■ E3r!:fiatiiic'iM;:*-*:!i'ixiHE^" : ? :? ■• rrxaf.ir^:iMymmw,ie-sxx wmm.^j.wmi 4 ,a„Ii^■l 

300 '? :? •■ BOOT INTERFACE CY or' N>'?"::GOSUB 360 

310 ■■? :■> •■ mmtMiWK-ieizrmmzumm-- ■■ --^ : input as : poke 752,1 

320 7 ■.■>•• OPENING "SFN*: CLOSE «l:OPEN «1,8,0,FN«:? :? " CR 

e; A T I M 1:; ■ • : F H SS 

S30 IF BOO 18 50 THEN RESTORE 2 00:G0SUB 130:HEST0RE 210:GOSUB 

12:0 : GOTO 350 

340 RESTORE ZOO:GOSllB 130 

350 PUT «l,2S5:PUr «1,25S:PUT »1,0!PUT ttl , 6 : L = l 23 + L EH t A S J -1 : 

PUT U1.L:PUT «1, 6: RESTORE 24 0:G0T0 140 

360 POKE 764 , 255 

3 7 O :i I" P E E K t 7 6 4 J = 2 S 5 T H E H 3 7' O 

S.&0 IF PEEK C 764 5 i= 4 3 "I H E N '? ■ • V ■ : B O O T 8 S O = 1 : PO K E 7 6 4 , 2 S 5 : R F T U R H 

3 90 IF PEEKC7 64>=3 5 IMEN '? ■•H":B00T«50 = 0:P0KE 764, 255:RE TURN 

400 ? :? :? "■ PLEASE TVPE V OR H?""; :GOTO 360 

S;0 ? "■ra+-0' I WAS UWABLE TO O P E IM AU li O RU N . S Y S " " : GO 7 O 9 00 

&00 '> ■■ti:i4-4- ERROR WHILE WRITING AU T OR UN . S V S " " 

900 2 :? , "ERROR NUHBER ";P-EEKC19S3:B^OKE 201,8:? :? , "PRESS 

tiIiSlLlCrr:i to rerun--:? .--press BaulTiafai for bos--; 

910 IF PEEKt 5 32793=3 IHEM RUN 

920 IF PEEK tS3279J -6 THEN CLOSE « 1 : 1> O S 
930 GOTO 910 



J «0 REM FSmeiiJaRiri tcj 1902 ..Hi-l-l-v Wn.Tf- r3X12^82:< 

i 10 GO I O 940 

1 2 O R F H 

130 REM *» c-x«aiJW:¥:«i»i«fls-tL:niiiirir*!:fvi:i??tis:*ir^iira:ijg:rETW^ «-«■ 

1. 4. O R E M 

i S O FOR H = A TO B : I F S E C S t H . H > = C H R 5 ( 1 5 5 3 T H F N '? ■ • ■ • ; : G O T O 1 7 O 

1 6 O ? S E C JT t K . H 3 : 

J 70 NEHT H: RETURN 

„1„ e O RE M 

190 ni=:M «-i* i;*'sffa:ir-'i"*ie!r^:i«w-n»i«^T|i*:'»"i«'ir;:T;T?r^^ ■«-**■ 

2 O O R E ir-K 



2iO FOR H=H TO Ft : Et V T F = <-1 Sf; t S 1= C S CH . K J ) : HK = IM T C B V I E ^ 1 6 ) <- 1 : HE K = B 

V T E - i e« C H K - 1 5 + i : H E H S t 1 . :l > = H li K r> m * t H H , H K J 

22 O HEK-*td,4>=HEXSrBStHE><.HI=:K):? HEKS;:NEXT K:RETURN 

2 3 O REM 

2d.o REM «-» rira;K]rT(Trairf»Ti:;T?r>«iji;*'««aini"»r:^ *« 

5! S O (t E M 

y & B [-• O K E ;? 6 * . 2 5 S : r> O K- E 8 ? , 7_ : " ■ ■ ».i ■ • : •> ■ ■ g«!f ijr:HI'a|i ^ If ^ ll — Mi -^lytll— ES-Titi^ 

27 O POKE yy 9 . .1 : FOB LOOP = ,L TO » : l> O K E V ? S . .1. O 4 + 1.. O O P : T O := U *-:. B f fll> R ( 

c:coS:i :» 

2:SB EOR EMTRY = .X. TO S : S T ft T E ;?' ~ *il=T:; * t EM T R Y«-,l 6 - .1 S , E! M T R V*I-,:1 B - 1, i :» :IF 

S TO TeS =."<»■♦■■ THE. M SAD 
Z 9' O IF S T ft V E S C ;L . i } = ■ -Ci' ■ THEN '? ■ ■ & • " p : G O T O S 2 O 

300 LOCK = ft SC CSTft TES CX , i) J : 1 OCK = I. O CK ~ IH T CI . O C K ,' 6 -» J M6 .» : T F LOCK> 
= 32 THEM -? "L ■■; :GOTO 320 
3 1 O -? " ■ • • ; 

3 2 O -? » » CI . O O R - .1 J •- E H T n V : ■ ■ •• • ■ ; S E C S C E M T R ¥*H 6 - T O . E N T It V-Wi fi ;> ;■•►••; 
330 '? ftSC CSECS CEMT HV>H 6 -12 J J +2S6*SftSC CSEC$ CEKTRY».Le~.L LS J :■■►■■; 
OSC CSEC* CEN rRY»JL6 -US > +256*eftSC C5EC;S C E W T R Y» 1 6 - J 3 J 1 
340 MEKT ENTRY:MEHT LOOP:C;OTO 7 SO 

3 5 REM 

3&0 REM *c-* l:if:l■?Bs^"I=«*s^iifi«i^T:r::^ i**^ 

3 7 O REM 

3 8 O P O K E 7' e 4 , 2 5 5 : Gi O S 1,1 B a 2 O : P O K E 8 2.1. 

3 9 o ? "IS EIlIiiEiIillljJJIEOia; 1 ■ ■ ; n u m : ? : i o = ii s r t ft d r c c i: o s :> :> : t f c r i then 

POKE "7 6 6 . X 

-«.XO 2 " "" : : A= t : fiF.:::;32 : XF' C ^: X, f h» l:f N ti C» S U B .1- 5 O : fii O "r O -* 3 O 

* 2 O GO S M B 2 X O 

41 -» O ■:' ■ ■ • ■ : : O = 3 3 : B = 6 -1 : i: F C; = 1 THEN G O S LI B X S O : C. O T O J 6 O 

■•SO GO 5. II B 2 X O 

460 -? :? :? :? "tgss:i]«;=ii3i:?iiigH5ai«*i«^^ -m 

* 7 O ? • • ■ ■ : : ft = 6 5 : « = g e : I F C = J THEN G O 3 LI B X 5 O : G O T O » 3 O 

41 O O G O S 1 1 B 2 X O 

*9o ? :? : ? :? "■ta-airaiiiiipiiiiif :!*:*"* *:i'FM«nf.irii(,MiF.p 

soo 2 ■ ■iH M iiwii ii w a ji;ifEij:tiig'o:m ■ 

5 X. o 2 ■ ■ ■iiiiiiiiiiii:iSi!*Ei:Ka>;i:Ms:faE?s ■ ■ 

52 O ? '■ "■ ; : ft= 97 : B=X2S : IF C = X THEM G O -i U B X50:GOIO 5dO 

5 3: O G (.» -3 U B 2 X O 

5 * e P O K E 7 (i 6 , O : 7 ;; G O T (t 7 S O 

5 s o R e: M 

see. RFM »«. IWITi'K'IflTCUKslli:*"!! «-« 

570 R E M 

58 O POKE 7«'t , 25S : TRftP S a O : V -'t^-'i't ■ ■> •• ENTER F X. L. EH ft ME ■ ■ : : 

INPUT IJ S E R S : I- X L E S = D B I U E S : F X L E S < I i: N C F I L E S 3 ■^ t > =11 SEP* 

S90 TRftP CiaO : CL.OSE »X : OPEN in I . 41 . It , FXl ES : COtlMT = : >>C01IIMT = : POK 

E 2 O 1 . 1 O : P O K F 8 2 - 3 : P O K E « 3 . 3 '} : F I ft G = 1 

BOO POKE ,'ti2.X:POKE 766. 0:> ■•".": POKE 766,X:2 "I^ViiinilPmtmiJiliirJTPITI 

6 J O G E I « X . B Y T E : C 1 1 M 1 -- C O LI N T + I : S *'. O LI M T = S C O LI M 1 + X : H H -- X N I t B V Ttr ^ X 6 
J I X : H E H - B V T E — X 6^ C H K — X Jl + J. : H E H ^> t X , X 3 =: H E H S T R ^ C H K . H K J 

e; 2 O H E K J> C -I . -* > - H E K 3 T R ^ t H E H . H E K 3 : 7 ' • ■ " : C O LI Ni T ,. B Y T E . H E K ^ C X . 1 3 ; H E 

H S C 4 , 4 J ; : X' F BY T E = X S S T H F: N B V T' E = 3 2 
ei.30 ■> •• ■■ : CHtt* CBY I E3 

6 * O I F S C O U IM ■ r = 2: O T «i £ N GO S LI B X. 2 3 O : 3 C O U W T = (J : G O f I, I ti O O 
ei SO GO T O 6 X o 

6. 6 O « E M 

<!i.7 REM *"* fW:T?r!amiiaiir;!ni::P5 ■•«->*■ 

6. 8 O R tt M 

LiilO POKE 6. 6 , O : ERBOR = PFE:k: C L ">S J -. X F F R H O R "- X. 3 6 I H E' M '? : '' , ■ • E W 1> 11 

F FXL.E";? : -' : GO SOB 750:RLIM 

7 1 1- ERR O R - r :L 7 O T II E W 2 : 2 . ■ " F I L. fi: H O T' F O U M D ■ " : 2 : 2 : G O T O 7 5 O 
7XO ? : !' .•■ERROR ■• : l-:RROri : •• ftT LINE ■ " : P E L- K t L «6 J ♦ P E £ K « I (1 7 ) *25 6 

: 2 ;: ? : I.OT O 7 50 
7 2 O REM 



7' 3 O REM 
7- .1 B REM 
?■ & O P O S :t T X €J H 



iiarrstiEtiiTaiiTrnaiui *«- 



'6 J , 2:5 



7'6 


j-|=. 


;■ 7 


IF 


7' SB 


PO 


7- go 


RE 


QBB 


RE 


SiO 


RE 


S20 


TB 


: TRAP 


€13 B 


NLI 


osfcifci.!.:!" 


a*o 


? 


ss: 




aso 


Lfl 


860 


■.IF 


€17-0 


IF 


sso 


? 


ft^B 


PO 


3BO 


PO 


^10 


RE 


gZB 


IRE 


^3B 


RE 


S* 4. 6 


DI 


= -"h 


SB 


^> s 


HE 


3 & B 


B> X 


^-yQ 


PO 


5Hao 


PO 


^90 


PO 


J. B B B 


p 


iBlO 


R 


J 020 


u 


J a 3 


R 


.1 4 


<:i 


: POKE 


J. s 


'? 


.1. 6 


'? 


i07'8 


'^ 


1 a 


'^ 


1090 


'? 


J_ J 


'^ 


IJ-IB 


? 


J t z 


'? 


J_i.3 


13 


J., i, 4 


L 


J. 1 s 


I 


J.. 1 (i B 


:c 


3. 1 y 


r 


J J 8 B 


I 


K E 7" 6 i 


:l, i 3 


li 


1. 2. 


R 


3 SL ;L B 


B 


J. 220 


R 


1. 2 3 B 


P 


J- Z -i B 


I 


J . 2 5 


I 


.1 . 2 & 


G 



PEEKt7 64>=25S THEN 760 

FLAG THEN RETURN 
KE 7"6-t,Z55:GOTO JLO-IO 
M 

M 

TYPE SECTOR W LIMBER ESCiiniT]'"; :IMP 

H E H ? : ? , ■ ■HniijC 

: POKE 

r H Hr: H e ti. o 



OP S20 : ? : ? " 

'll O O B O 

M=XNT CMLIMa :IF HLIM<1 OB; NIIM>7'20 

: GOTO S20 



UT MUM 



S T K E Y ~ P E E K C T' & 4- :N ; I F L A S T K E: Y -j 2 5 S 
L ft 5 T K E V = 3 i r H E H C = X : li h:> T O B U O 
L. ft S T K El Y =. 3: O T H E H C = 2 ; G. O T O B ^? O 
: G O T O B 4 B 

KE 7'7B,MUM-IMTCMU M^ 2 5 6a *e 2 5 6 

K E 77 :^ , X M T t H U MX 2: 5 6 J : R E T U ft N 

M 



»>* ra::{j:i:a::j"?G3i*a:aix«:oj »■» 

. E C * C X 2 8 i , S T ft T E[ * C 2 a , H E K 5 C S 3 , H E H S T R S C X e 
H E K S T H S = ■ ■ O 1 2 3 i 5 Ei 7 8 g ft B C l> E E ■ ■ 



M cios fsa 
• "" 

K ?? = • ■ -1. *- * 

M I> R X 1.1 E * C 3 3 , U S E R S C X 2 1 , F" X L E S C ;l. 5 J : D ft X: U E :S = ■ ' r> X : " ■ 

K E 7 7 2 , ft l> R C S E C i? > — X M T C ft !> R <; S E C $ 3 X 2 5 6 ;k ^2 5 6 : REM LOW 

K E "7 7 3 , X N T C ft iO R C S E C S' 3 /' 2 ^ G 3 : R E M H X: G H B Y T E: 

KE 76!?nX:REM &RXUE X 

O K E 770 , S 2. : R E M RE ft D S E: C T Oft (8 7' = M R X: T E: S E C T O H 3 

EM 

EM *» iBicsii^riC'iBiraTra^'iiiriXi) -x-^* 

e"M 

R ft P H I C S «» : P O K E 7 1 O . X -i ■» : P O K E 2 O i ,, 9 : P C> K E 7 5 2 ., X : P O K 

8 3 , 3 9 : E L ft G = O : P O K E 7 6 6 , O 



) : CIOS 



: '^ 



I> X S K X M S P E C T O ft I ' " 



, ° ' X = E: H ft MX M E [> I ft E C T O ft Y ■ " 
, ■ ■ 2; - E K ft MX M E S E C T O H ■ • 
, ■ ■ 3 = E K ft MX M E E I L E ' ■ 
, ■ ■ 4 = RUM ME M U ■ ■ 

OKE 764,255:SECSCX3=" "":SECS|;X2 8S= SE;CSt2i = 

ft S X K E Y = P E E K C 7 6 -1 ) : X E L ft S T K E Y = 2 S 5 I" H E H X X .* O 

E E ft S T K E Y := 3 X T H E: M 2 4 

E L.. ft S T K Er Y = 3 O THEM 3 6 O 

F L a S T K E Y = 2 6 THEM POKE 7 S 2 , O : G O T O S 6 O 

F L a S T K E V = 2: A THEM POKE 2 O X , X O : G R ft F> H X C S O : POKE 

,255:^? :2 :2 ,"L_OftDXMG MIE: M IJ " : R DJ M "X>;:MEN1JI" 

O T' O X X s e 

EM 

EM *c*t p:s::r^::s;Mii5i:iiii:iiariSji!:KH «« 

EM 

o s X T I o M 5 , 2 3:2 ■ ■i:ii**:ic:ii:jeai;i:i:sis:s:cii:;¥«»ii-is:^^^^ 

E PEEKt532 7g:>=3 XHEM RUM 

F P E E K t !S 3 2 7 1? :j "j 6 THEM RE T U R H 
O T O X 2 4 O 



S E C ^ C±J 



P 2 . X : P O 



SPEEDCMECK 

o REM cgamieri ^^29-' 02 

i O O G B H P H I C 5 O : F> O K C-: 5 S 9 , O : F O R 1 = TO ? 2 : R E fl, l> fl : P O K E .1 5 3 G + X , A 
: M E K T T : P O K E 7 .t O , O : P O K E 8 2 , 1 : P CI K E 2 O ;l , :L O 

izo ? •■n":? , "rSSSIZISSSISSZIIZIIZIZSISlSiri"' : ? , '■■llil..:.ilC;Jlli;;i.lMi.iilO^IElli:Jilllil'' : ? .. ■■ 
ll,—^---''-—--™""—"",;;;;,;;;;.;;;!' -ipoke ssi?,3 4:poke 7'52,o 

ISO ? ■ ■ 4. * * ► T E S T HH I C H t> R I </ E M LI MB E R " ■ ; : T R ft P J S O : T M P IJ T I> R lU E : T R 
OP 4 

J,60 I>RII.>E = IHTCDRI<JE3 :IF ORKJIE'C I. O B O B t U E > * T II EH ? : ? ■ " E N T 

ER DHIUE NUMBER L, 2, 3, OR 4":GOrO ISO 

J. 8 POKE 7- S 2 , ;L : ? : ? " ' TESTING 1 O O O X 3 K R E 11 O I . LI T X O M S " ■ : ? : ? 

" THIS SHOULD TAKE OPPROK. 22 SECONDS"; 

2 O O POKE 1 6 1 O , D R I "J E : H = LI S R C ;L 5 3 6 > : ft = P E E K CX 6 1 i :j : B = f > E E K t X 6 X 2 J : MI 
H= C2S6«B + £>:J ^3600 : HPM=INT tXOO^MIH HO . 5J 
220 ? :? : ? " ■ ►■ ►Ca'iT-kLH' ■ ; R P H ! X F' RPM>284 CtHD R P M < Z 9 X. THEM '? :2 " l> 

DHIUE SPEED IS O.K.":POKE yXO.XySlGOTO 250 
2 3 O POKE 7' X O ., (i 6 : I F B P M < 2 S S THEN ? : '? ■ ■ K D R I U E SPEED IS TOO S 1... 
OW : GOTO 2SO 

2 » 8 -? : '? ■ ■ ► D R I U E SPEED IS T O O F f-t S T ■ ■ 

2 SO ? :? "PRESS EOajEltLC:] FOR MENU OR 6-5:131:53 TO BERLIN"; 
3; O O IF P E E K t S 3 2 7 -9 :> = G THEM X 2 O 

350 IF' PEEKCS327g;i=3 THEN POKE 32,2:? ..k..;;. ,.. LOADING MENU" 
: R LI N " D : ME N LI " 
*00 GOTO 300 

50 REM DATA FOR MACHINE LANGI.IAGE ROLITIME 
X O O O DATA X O J , X 6 9 , X , X 4 X , X O , 3 , X 6 g , O 
X. O X O DA T A X 4- X , X. X. , 3 ,„ X 4 X , 4 , 3 , X 6 9 , 5 
.1. 2 O D A T A X. 4 X ,, S ,, 3 , X 7 3 ,, 7 4 , G , X 4 X , X 
J. O 3 O DATA 3 , X 6 -9 , 8 2 , X 4 X , Z , 3 , X 6 -9 ,, 5 
X o 4 O DATA X 4 X p 7 3 , & , 3 2 , 8 3 , 2 2 S , 2 O 6 , 7 3 
X O 5 O DATA 6 , 2 O 8 , 2 4 B , X 6 9 , X O O , X 4 X , 7 3 , 6 
X O 6 O DATA X 6 S , O , X 3 3 , X 9 , X 3 3 , 2 O , 3 2 , 8 3 
J- O 7 O DATA 2 2 S , 2 O 6 ,, 7 3 ,, 6 , 2 O 8 , 2 4 8 ,, X 6 S ,, 2 O 
J, O 8 O I> A T A X 6 4 , X 1* , X 4 X , 7 5 , 6 ,, X 4 O ,, 7 6 ,, 6 , 'i> 6 
2 BE M 

20X0 REM THIS IS A MH3DIFIED OERSION OF THE R P M T E S T PROGRAM O 
HIGINALL. V PUBLISHED 

2B20 REM IN THE MAY X5 82 ISSUE; OF COMPUTE! MAGAZINE. 
2 30 REM WE WI S l-H TO THANK BOB CHRISTIANSEN FOR HIS F^ERMISSIO 
M TO IMCL. UDE THIS 
2 040 REM PROGRAM AS PART OF THIS TUTORIAL^UTILITV PACKAGE. 



D I SKr=' I i_e:s 

a REM FILES fci X98X by Jen-y Mhitt- 
X REM ATARI DISKFILE TUTORIAL DEMO 

Z: REM 

XOO DIM DRIVES C33 , FILES CX2> , DRIMEFIILES CX5J , RECORDS CiOJ , ANSWE 

US ex J 

XXO DXM SECTOR C20J , BYTE tZOJ , DIRECTORYS C20J : REM DIMENSION STB 
IMGS AND ARBAYS 
XXX REM 
X. 20 GRAPHICS 0:POKE 8 2.2:POKE 03,39:REM CLEAR SCREEN AND SET 

MARGINS 
X30 POKE 20X,S:5ETC0L0R 2,X,0:REM SET PRINT TAB WIDTH TO 5 S 
PACES AND COLOR 

X40 -? :? "TYPE OPTION NUMBER THEN PRESS BE TURN" 
X50 ? :'? ,"CX3 CBEATE A DISK FILE":BEM GOTO XOOO 
X60 ? :? ."tZJ READ A DISK FILE":BEM GOTO ZOOO 
X70 ? :V ,"f3 1> ADD TO A DISK FILE":REM GOTO 3000 
XSO ? :? ,"£43 UPDATE A DISK FILE":BEM GOTO 4000 
Xg-O ? :? , " CS;> DISPLAY DISK DIRE C TOR Y ": REM GOTO SOGO 
200 ? :? ,"t6> BUN MENU": REM GOTO 9X40 
2XO ? :? ,"YOUR CHOICE"; :GOSUB 7 000 

220 TIRAP 8000 : L rNE = X20 : HIGHNUMBER = 6 : NUMBER = UAL tANSWER$> 
Z30 IF NUMBER<X OR NUMBER > IS THEN GOTO 8000 
240 ON NUMBER GOTO XaOO,200(9, 30 0, 4000, 5000,9X40 



>50 REM 

I O O O LIME: 



6iOO:GOSIJB V±00:fHaiP 3:1 tJO : GROPHICS OlSETCOLOR 



lOlO C«_03IE »X:0»>E1« »J. , 8 , O , ORIUEFILES 

iOZO ? :? ■■C.REtlTXNG "■JDRHJEFILES:? :REC0RI>S = "123JS6-;'8 3 0' 

.1. 30 1-OR DEHO = ± TO iO 

1. 040 V «:l ; RECORDS 

X050 ? ■•WRXTIMG RECORD MIJMIER " ■ ;■ » E MO 

lO&O MEHT DEMO 

JL070 ? : '? ••±0 RECORD DEMO FILE CREATED" 

lOSO ? :? "CLOSIMG ^';DRXUEFXLE5 

1030 CLOSE «I 

AlOO GOTO <>.1.08 

.1 1 i O REM 

2 O O O IL I M E = 6 1 O O : G O 3 U B ? HJ O : T R ft P- 3 1 O O : G R li P 11 1 C _, O ; S. E T C O Ltt R 



OiO CLOSE -«Z ; O P E M tt2 ,, -'.• , O , I> R ID E f- I (,_ E * : IR E C M IJ M= tj : L I N E = 6 i » O 

O 2 O INPUT »2 , R E C O R I> S 

030 IRECN1.IM=RECMUMH-Jl, 

O^O ■? "RECORD NUMBER " " r, R E CM IJ M ;; 

O 5 O ? .RECORD S 

060 GOTO 20 2 

OT'O REM 

O O O IL X M E = ;S O O O : G O S O B V 1 O O : T R A P 9 t O O : G R O P H I C 5 O : S E T C O ll_ O R 



lO 

2 

SO 

to 

so R 

6 I 

70 

BLO 

3 
OO 
lO 
20 
30 

4 O 
OO 
IO 



L O S E 
ROPH 



E C L e: 
F RE 
OR B 
MK 
R I M T 



F PE 
F PE 
OTO 
: ? 
EM 
IME = 



ttS : OPEM «3 , 9 , O , DRKJEFILES 
IC5 : ? ; ? ^ '"A»>D RECORD C 5]? ROUTIME : "' 
, "'EMTER IO CliAlkACER RECORl>" 

, " • O R JUST PRESS RETURN TO E K X T " " : ? : G O 3 «J IS 6 O O O 
M = LEM C RECORD* J : IF RECLEM = t» THEM 32 OO 
CL.EM^IO THEM 3030 
L A iWi U< " R E C L E M HI- 1 TO I O : R E C O R D JG^ t L E INI C R E C O R D S J -«- 1 Ji :- " " " 

«-:3r ; RECORDS 
'"PRESS SI ART IO EMTER AMOTHER RECORD" 
"PRESS O P T r O M FOR OTHER OPTIONS...'"; 
EKtS3 2?3J=6 THEM 3020 
EKt53 2 735=3 THEM 3200 
312 O 
:? ."ADDING RECORD tS'J TO OX SK " : C L O SE «3:GOTO X'. 

4100:G0SUB ?IOO:TRAP 9 100:GRAPHH;S OjSETCOLOR ; 



,1. O 
2 
30 
40 
SO 
60 
70 
SO 
OO 
IO 
2 
30 
40 
SO 
OO 
IO 
20 
30 
40 



WOT 
RFC 
■'i E C 
IMP 



IF 
XF 
GOT 
GRA 



TRA 
«JPD 



SE 1U4:OPEM a4 . 12 . O , DRX«JEFXLE$ : LIME = 4100 

'? , ."CREATING I M D E K " : R E C N U M= O 

E »4 , SECTOR , BYTE 

M U M= R E C: M U M tt I 

TOR C R E C M U M) = S t C T O R : BYTE t H E C N U M> = B V T E 

UT Mt4 , RECORDS : ? ," RECORD ";RECNUM, RECORD* 

" S E C T O R = ■ " ; :■> E C T O R , ■ ' B V H E = ■ ' ; B V T E 

GOTO 4030 

M U M :: :R E C M 1 J H I 

■f "PRESS START TO UPDATE A RECORD" 

'? "PRESS OPTION FOR OTHER O P f X O M S ' " ; 

PEEKCS32 7 3:>"6 THEN 4200 

PEEKt5 32 7 3 3=3 THEN CLOSE 1*4: GO TO 120 

O 4 1 3 O 

PHICS 0:REM RANDOM ACCESS RECORD UPDATE ROUTINE 

? ."•DISKFILE CONTAINS ";RECNUM;" RECORDS" 

? "ENTER RECORD NUMBER TO BE UPDATED"; 

P 4220: INPUT UPDATE: TRAP 40000 

ATE=INTtUPDArE) :IF UPDATE <! OR UPDATE>RECNUM THEC 



SO POINT «4 

SO INPUT »»4 

7 ? : ? "EM 

SO RECLEN 

30 FOR BLAN 

BLANK 

OO POINT *t4 

IO PRINT «4 

20 GOTO 411 



.SECTORCUPDATEJ .BVTECUPDATEJ 

.RECORIOS:? :? RECORDS 

TEH NEW RECORD B" ; UPD ATE ; : INP U T RECORDS 

EMCRECORDS3 :XF RECLEM = J10 THEM 4 300 

K=;RECLEH1-H TO IO:RECORDSCLENCRECORD!i3-HJ=' 

.SECTORCUPDATEJ .BVTEtUPDAlEJ 

;REC0RDS:? :? ."RECORD HAS BEEN UPDATED" 



43XO niEM 

5 Q C9 (9 G R O P H X C 5 ti : P O K E: y 5 2 , i : S E I C O L O H 2. , :l 2 , O ! fUJKE 2 1,8:? : ? , 

•■ OI5IK DIRECTOnV:? jTIROP UJLUO 

50i0 t;l_03E n5:OIPEN «!S , t> , O ,"■!> :**.!*■■: REM OPEN I>I3K l>IRECTORV FO 

n fty_L ENTRIES 

5020 l_rHE = 6J.OO 

5030 XMPIIT n5 . OZHEC II ORYvS. 

5 O -t O ■> , l> X R E C I O R V S 

sosoGoi'oseso 

5060 REM 

(>ooe inECORi>S= poke vsj,. zssjrem record string anv> last key 

PRESSED = NU I- L 

6 O 1 O X M P U T R E C O R 1> * : R E: T II R M 

6 O 2 O REM 

6100 FOR FILE = .J. TO S: CLOSE »FXLE:WEKT FILE: REM CLOSE (ILL FIL 

ES 

eilO IP'OKE 2 0.1. , S : ■'? :? .""PRESS REIURM FOR OPTIONS""; 

6X2 O GOSIJB rOOO ; COTO X20 : REM PAUSE TO READ SCREEN THEN GO TO 

OPTIONS 
6X30 REM 

7 00 tf»NSWER5 = POKE ^''GJ , 2 !5 !5 : X MP IJ T A H S ME R ^ : RE T URN :REM X CHA 

R A C T E R INPUT 

? O X O REM 

7- TOO GRAPHICS 0:SETCOLOR :2,0,0:REH &RIUE NUMBER AND FILENAME 

INPUT ROUTINE 
".'XXO ? :? ""TVPE: disk DRIUE number tl- .ti"; : HIGHNUMBER = d : GOSUB 

yooo 

:^X20 L-XNErry XXO ; TRAP ;30 OO : N U MB EIR -; U A L. t rf^MS WE: R :5 J -.TRAP 3XOO 

?X30 IF NUMBER <X OR M U MB E R > 4 THEN 8 O O O 

? X. -< O lO R X U E 3? ~ " ■ r> • " : D R X U E S t L E N C D R X V E :5 > + X J "ANSWER^ 

T-XSO DRIUE* CLEH CDRXUESj +XJ =•• : "• 

7 200 '? :? "TYPE FILE NAME""; : INPUT FILES: IF L E: H C F I L E S J =0 THEN 

7200 

7" 2 1 O D R X U E F X L E: S v=: l> R I "J E S 

7 2ZO l>IJIUE FILES tLEN CIORIUEFILES-J *Xi =FXLES : RETURN 

7" 2 3 O IR E M 

iJCtOO -f =? "F'LFA^F ryPF ft MUMMFB FROM X THRU ■ ■ ; H JiiiiiMU !1B "^ K : if t n 

e;rror routine 
80xo gosub 9 00:&0t0 linelrem go back to line number tlinej 
^l o o o ? c h r s 1 2 s 3 > : r e m ring error bell 
uoxo for couht=x to 300:nekt count: re turn 

f»Ci20 REM 

^XOO P'OKE y52,0:XF PEEKCX!i*SJ~X3t> THEN GOTO LINE:REM ERROR WA 

S END OF FILE 

9XXO REM DISPLAY ERROR NUMBER AND LINE AT MHICH ERROR OCCURR 

ED THEN END 

5>X20 ■? :? ■" ERROR " " ; PE E K t X "? 5 J ; "" AT LINE " " ; P EE K CX 8 &3 * P EE K t X 87 

J «2se 

^XSO LIST PE EK Ci86} +PEEK CX87> W256 : GOSUB <:> O O O 

9 140 TRAP iOOOO:GRAPHXCS 0:POKE 76*,2SS:POKE 7 52,X:POKE 20X, 

XO 

^X5 ^? : ? : ? , '"LOAD IMG MENU"" : RUN ""D : MENU"" 




Don't forget to ask for my other lessons teaching you about all 
of the great GRAPHICS and SOUND tricks that the ATARI 
computers can do-the TRICKY TUTORIALS™ for 16K: 



#1 — DISPLAY LISTS i many Graphics Modes at the same time! i 
#2— SCROLLING (move your Graphics and text around 

smoothly) 
#3 — PAGE FLIPPING la professional looking way to redraw 

many screens of text or graphics) 
#4— BASICS OF ANIMATION (a beginner's lesson in moving 

shapes around the screen i 
#5 — PLAYER MISSILE GRAPHICS ( Learn to write a PACMAN^" 

type game of your ownh 
#6 — SOUND AND MUSIC (from single notes & chords to songs 

& special effects, I explain all) 
#7 — DISK UTILITIES ( Utility programs to help you use yourdisk 

drives (32Ki 
#8 & 9 Coming soon to a blackboard near you! 



^^JjpTHg FroP^SBoR 



.© 



KNOWS WHAT 
H^I5TAWKIAI& 
ABOUT 



o 



<^^^< 



HELLO StaPEMTSl X AM 
PROFESSOR VOM CHIPH I AM BRINeiNG 
VOUTHIS ^oroRlALfO HELP MAKE TWAT 
8IO PISK PRIVE you WAVE A UTTtE FRIEWPUEF 
-To OSE. 1 KJiOW VIOW HARD IT IS Tb WRITE 
yoUR OWN UTILITIES POR TM6 DARM 
TlMfNG, SINCE IT Took MEyEARS TO 
rRTE THESE PR06R/SMS cszv: re<^uirep. 




©1982 All Rights Reserved. 



Here are the utilities on this disk: 



1) A MENU program to tell you what Is on each disk, and 
allow you to run the program of your choice at the 
touch of a button . 

2) A FORMAT utility that allows you to format your 
disks with the touch of a single button (sound 

f ami I lar? I I Ike buttons) . 

3) Would you like a listing of the contents of each 
disk? If you have a printer, or can borrow one, 
that Is exactly what you will get with DISKLIST. 
Tape the listing to each jacket cover and you are 
a! I set. 

4) With AirrOBOOT, your disks will run themselves when 
you turn on the computer. You simplly give the 
computer a list of Instructions to follow when It 
first runs. 

5) INSPECT wll 1 make you as smart as a Professorl 
You can look at any place on your disks and see 
what Is written there. 

6) Finally I give you DISKFILE, a small tutorial on 
writing and reading Information to a disk. 
Perfect for those of you who want to really 
understand the mysteries of DISKOLOGY (one of 

my favorite subjects)! 

7) A bonusl My Robot, Prototype, has Improved a 
recent program published In COMPUTE! (of course 
I asked first). SPEEDCHECK will help you be 
sure your drive Is running at the right speed. 



